(defun c:plotbars ()
;;;  (setq files_list(dos_dir "n:/Intranet/CADStandards/BarScales/*bars.dwg"))
  (if myopen_fun nil (load "myopen_fun"))
  (if files_list
    (progn
      (setq this_n (STRCAT (GETVAR "dwgprefix") (CAR files_list)) files_list (CDR files_list))
      (myopen_fun this_n)
      (command "._psetupin" "L:/Util/pagesetup.dwt" "TIFF 9.0x9.0 288dpi MS EX FIT" "_y" nil nil nil)
      (command "._plot" "_n" "Model" "TIFF 9.0x9.0 288dpi MS EX FIT" "" "" "_y" "_y")
    )
  )
)
(DEFUN c:make_html ( / files_list)
;;;  (setq files_list(dos_dir "n:/Intranet/CADStandards/BarScales/*bars.dwg"))
  (IF
    (IF (FINDFILE "N:/Intranet/CADStandards/BarScales/mynewest.html")
      (setq htm_file (open "N:/Intranet/CADStandards/BarScales/mynewest.html" "a"))
      (setq htm_file (open "N:/Intranet/CADStandards/BarScales/mynewest.html" "w"))
    )
    (FOREACH x files_list
      (PROGN
        (WRITE-LINE "    <object name=\"idrop\" classid=\"clsid:21E0CB95-1198-4945-A3D2-4BF804295F78\" width=\"216\" height=\"67\">" htm_file)
        (WRITE-LINE "      <param name=\"background\" value=\"..\images\background.jpg\">" htm_file)
        (WRITE-LINE "      <param name=\"proxyrect\" value=\"0,0, 216, 67\">" htm_file)
        (WRITE-LINE "      <param name=\"griprect\" value=\"0, 0, 216, 67\">" htm_file)
        (WRITE-LINE (STRCAT "      <param name=\"package\" value=\"" "N:/Intranet/CADStandards/BarScales/" (SUBSTR x 1 (-(STRLEN x)4)) ".xrl" "\" />") htm_file)
        (WRITE-LINE "      <param name=\"validate\" value=\"1\">" htm_file) 
        (WRITE-LINE "    </object>" htm_file)
      )
    )
  )
  (CLOSE htm_file)
  (PRINC)
)
(DEFUN c:make_bars_xml ( / files_list)
;;;  (setq files_list(dos_dir "n:/Intranet/CADStandards/BarScales/*bars.dwg"))
  (FOREACH x files_list
    (IF
      (setq xml_file (open (strcat "N:/Intranet/CADStandards/BarScales" (SUBSTR x 1 (-(STRLEN x)4)) ".xml") "w"))
      (PROGN
        (WRITE-LINE "<?xml version=\"1.0\"?>" xml_file)
        (WRITE-LINE "  <package xmlns=\"x-schema: ..\schemas\idrop-schema.xdr\">" xml_file)
        (WRITE-LINE (STRCAT "    <proxy defaultsrc=\"\\\\corpsvr\\n\\Intranet\\CADStandards\\BarScales\\Plots\\9x9\\" (SUBSTR x 1 (-(STRLEN x)4)) ".gif\"/>") xml_file)
        (WRITE-LINE (STRCAT "    <dataset defaultsrc=\"\\\\corpsvr\\n\\Intranet\\CADStandards\\BarScales\\" (SUBSTR x 1 (-(STRLEN x)4)) ".dwg\">") xml_file)
        (WRITE-LINE "      <datasrc clipformat=\"CF_IDROP.DWG\">" xml_file)
        (WRITE-LINE (STRCAT "        <datafile src=\"\\\\corpsvr\\n\\Intranet\\CADStandards\\BarScales\\" (SUBSTR x 1 (-(STRLEN x)4)) ".dwg\"/>") xml_file)
        (WRITE-LINE "      </datasrc>" xml_file)
        (WRITE-LINE "    </dataset>" xml_file)
        (WRITE-LINE "  </package>" xml_file)
	(CLOSE xml_file)
      )
    )
  )
  (PRINC)
)
(DEFUN c:make_lisp_xml ( / files_list)
  (IF check_for_doslib NIL (LOAD "check_for_doslib" "\nFile CHECK_FOR_DOSLIB.LSO not loaded! "))
  (CHECK_FOR_DOSLIB)
  (setq files_list(dos_dir "C:/Util/Lsp/*.lsp"))
  (setq xml_file (open "C:/Util/Lsp/FileList.xml" "w"))
  (SETQ cnt 1)
  (WRITE-LINE "<?xml version=\"1.0\"?>" xml_file)
  (WRITE-LINE "<LispFiles" xml_file)
    (WRITE-LINE "xmlns=\"http://www.paracadd.com\"" xml_file)
    (WRITE-LINE "xmlns:xsi=\"http://www.w3.org/2001/XMLSchema-instance\"" xml_file)
    (WRITE-LINE "xsi:schemaLocation=\"http://www.paracadd.com/Lisp/FileList.xsd\">" xml_file)
    (FOREACH x files_list
      (WRITE-LINE (STRCAT "  <File ID=\"" (ITOA cnt) "\">") xml_file)
	(WRITE-LINE (STRCAT "    <URL src=\"http://www.paracadd.com/lisp/" x "\"/>") xml_file)
	(WRITE-LINE (STRCAT "    <Lisp name=\"" x "\"/>") xml_file)
      (WRITE-LINE "  </File>" xml_file)
      (SETQ cnt (1+ cnt))	
    )
  (WRITE-LINE "</LispFiles>" xml_file)
  (CLOSE xml_file)
  (PRINC)
)
